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BBBBaB8B AAAAAA SSSSSSSS ccccccce 000000 PPPPPPPP vY YY FFFFFFFFFF DDDDDDDD 
8B BB AA AA SS cc 00 00 PP PP YY YY FF DD DD 
88 BB AA AA SS cc 00 00 PP PP YY YY FF 0D DD 
8B BB AA AA SS cc 00 00 PP PP vy YY FF DD DD 
88 BB AA AA SS cc 00 00 PP PP vy yy FF DD DD 
68888888 Aa AA SSSSSS cc 00 00 PPPPPPPP YY FRFFFFFF DD DD 
AL sal SSSSSS cc 00 00 PPPPPPPP YY FFFFFFFF DD DD 
8B BB AAAAAAAAAA sS CC 00 00 PP YY FF DD DD 
68 BB AAAAAAAAAA ss CC 00 GO PP YY FF DD DD 
BB BB AA Ah ss CC 00 00 PP YY FF DD DD cece 
8B BB AA Aa ss CC 00 PP YY FF DD DD cece 
BBBBBBBB AA AA SSSSSSSS cccccccc 0000 PP YY FF DDDDODDD eos 
BBBBBBBB Ab AA SSSSSSSS ccccccce 000000 PP vY FF DDDDDDDD eeee 
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1 Hate BassscOry Fo Copy floating or double 
§ DEN 1-005/ ; File: BASCOPYFD.MAR Edit: PLL1005 
4 : 
5 3 MARRBRRARAALALALALLALEE ELA LALALE SALE RES ER EEE EERE EERE EERE RRR EEE EES EEE REE EEE ESS 
3* * 
09 5 :* COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 
0 :* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. . 
; ' r ALL RIGHTS RESERVED. . 
4 w 
000 11 ;* THIS SOFTWARE is FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED «* 
00 i 7* ONLY IN ee ANCE wate THE TERRS OF SUCH LICENSE AND WITH THE ®* 
00 15 ;* INCLUSION OF THE ABOVE gill NOTICE. THIS SOFTWARE OR ANY OTHER * 
000 14 ;* COPIES PHEREOF oy arn BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0000 15 ;* OTHER PERSON. TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
4464 1 3* TRANSFERRED. ® 
3* * 
0000 18 ;* THE on ae IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 19 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT # 
44 Y :* CORPORATION. ® 
P ® 
0000 ¢ 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
0000 4 ;3* * 
0000 5 :* . 
0000 6 3 MeRRRRRRALALALALEAALASLAASALAESR ERE RARER E RRR ERR ARERR RRR REE RRR ERE RE REE E RRR RRR ASS 
0000 7; 
0000 8 ; 
0000 9 3+ 
4444 y 3 ABSTRACT: 
0000 3 3 This module contains routines to copy floating ,double, gfloat, 
000 ; and hfloat numbers from one place in memory to another. This 
000 4 : is done with special instructions to check for reserved 
0000 5 : gperends. It is done by subroutine because BLISS does not have 
0000 6 : floating point manipulation. 
0000 7; 
0000 @ 3 
0000 9 ;-- 
0000 40 ; 
0000 41 : VERSION: 1 
0000 4g : 
0000 4 : HISTORY: 
$4 44 ; 
90 45 ; AUTHOR: 
000 46 : John Sauter, 03-FEB-1979 
0000 47 ; 
0000 48 : MODIFIED BY: 
it 49 ; 
000 50 ; 
0000 31 ; 
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0000 33 -SBTTL HISTORY : Detailed Current Edit History 


| 

| 0 

| 2099 56 ; Edit History for Version 1 of BASCOPYFD 
Original. JBS 03-FEB-1979 

| 

| 


0 ; 

0000 38 3 1-001 - 

00 9; e's - Correct a typo in a comment. JBS 08-MAY-1979 

00 60 ; 1-005 = Make JSB entry points end in _R1, JBS_ 23-AUG-1979 
00 61 ; 1-004 = Add entry points for g & h floating. obs 9-Sep-81 
000 62 ; 1-005 = Fix bug in h entry point. PLL 8-Apr-19 
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RATI 6-SEP-1984 BASRTL. SRE 
09 1 -SBTIL DECLARATIONS 
09 e 3; INCLUDE FILES: 
ow 
00 0; 

83 4 3; EXTERNAL SYMBOLS: 
009 73: NONE 
ae 

$00 76 ; MACROS: 

000 77; 

000 78 ; NONE 

0000 79 ; 

444 80 ; 

0000 e) 3 PSECT DECLARATIONS: 

00000000 4 -PSECT _BASSCODE PIC, SHR, LONG, EXE, NOWRT 

0000 : 

0000 4; 

0000 85 ; EQUATED SYMBOLS: 

0000 86 ; 

0000 87 ; NONE 

0000 88 ; 

0000 89 ; 

0000 90 ; OWN STORAGE: 

0000 91; 

0000 92; NONE 
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oe 
FUNCTIONAL DESCRIPTION: 
Copys a single-precision (32-bit) floating number 


4 
§ g 
97 ; 
A 98 ; 
| 000 100 ; 
99 191 ; CALLING SEQUENCE: 
+ 198 ; JSB BASSSCOPY_F_R1 (src.rf.r, dst.wf.r) 
| 09 195 ; INPUT PARAMETERS: 
| B28 199 3 SRC. rf.r The number to be copied 
909 109 : IMPLICIT INPUTS: 
900 11 ; NONE 
9000 18 : OUTPUT PARAMETERS: 
464 13 : DST.wf.r The place to which to copy the number 
9009 WV : IMPLICIT OUTPUTS: 
$f ais foe 
0000 121 > FUNCTION VALUE: 
0000. = ¢ 3 
a 
9000 125 : SIDE EFFECTS: 
0000 127; May get Floating Reserved Operand hardware trap. 
0000 128; 
0000 129 ;-- 
33 1 
0000 132 BASSSCOPY_F_R1:: 
7E 60 00 0000 133 mMOvC (RO) ,=(SP) 3 Get the number without trapping 
61 8€ 50 0003 134 MOVE (SP)+,(R1) : Trap if reserved and store 
05 0006 135 RSB ; Return to caller. 
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7E 60 7D 
61 8E& 70 
05 
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0: 


"FUNCTIONAL DESCRIPTION: 
Copys a double-precision (64-bit) floating number 
CALLING SEQUENCE: 
JSB BASSSCOPY_D_R1 (src.rd.r, dst.wd.r) 
INPUT PARAMETERS: 
SRC.rd.r The number to be copied 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
DST.wd.r The place to which to copy the number 
IMPLICIT OUTPUTS: 
NONE 
FUNCTION VALUE: 
NONE 
SIDE EFFECTS: 
May get Floating Reserved Operand hardware trap. 


va (RO) ,-(SP) ; Get the number without trapping 
MOVD (SP)+,(R1) : Trap if reserved and store 
RSB ; Return to caller. 
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: .SBTTL BASSSCOPY_G_R1 


- ++ 
; FUNCTIONAL DESCRIPTION: 
Copys ag floating number 


floa 
COPY 
oF 
& 1823 
at 
E 184 ; 
OF 185 ; 
OOE 1 § ; 
BoE : 8 ; CALLING SEQUENCE: 
BoE 13 3 JSB BASSSCOPY_G_R1 (sre.rg.r, dst.wg.r) 
43 138 3; INPUT PARAMETERS: 
OOE 193; SRC. rg.r The number to be copied 
QOOOE 194 ; 
OOOE 195 ; IMPLICIT INPUTS: 
443 196 : 
OOE 197; NONE 
QOOOE 198 ; 
QOOE 199 ; OUTPUT PARAMETERS: 
OOOE 200 ; 
QOOE 34 : DST.wg.r The place to which to copy the number 
OOOE 8 3 
OO0E $ ; IMPLICIT OUTPUTS: 
QO0E 04 ; 
OO0E 05 ; NONE 
OQO0E 06 ; 
QOOE 07 ; FUNCTION VALUE: 
OO0E 08 ; 
OOOE 09 ; NONE 
OO0E 10 ; 
OQO0E 11 ; SIDE EFFECTS: 
OQO0E \¢ ; 
QOOOE 2135; May get Floating Reserved Operand hardware trap. 
OOOE 214 ; 
QOOOE 215 ;-=- 
OOOE 216 
OO0E 217 BASSSCOPY_G_R1:: 
0 7D QO0E 218 mOvG (RO) ,=(SP) ; Get the number without trapping 
61 8E SOFD OO11 219 MOVG (SP)+,(R1) :; Trap if reserved and store 
0 Bat2 $s RSB ; Return to caller. 
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.SBTTL BASSSCOPY_H_R3 


FUNCTIONAL DESCRIPTION: 
Copys an h floating number 
CALLING SEQUENCE: 
JSB BASSSCOPY_H_R3 (src.rh.r, dst.wh.r) 
INPUT PARAMETERS: 
SRC. rhe The number to be copied 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
DST.wh.r The place to which to copy the number 
IMPLICIT OUTPUTS: 
NONE 
FUNCTION VALUE: 
NONE 
SIDE EFFECTS: 
May get Floating Reserved Operand hardware trap. 
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7E O08 AO 7D mOvG "B*8(RO) ,-(SP) 
7E 60 7D mMOva (RO) ,-( SP) ; Get the number without trapping 
61 8E 70FD MOVH (SP)+,(R1) ; Trap if reserved and store 
05 RSB ; Return to caller. 
: END 
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\ table ~ BASRTL.S RCIB BASCOPYFD.MAR; 1 
 BASSSCOPY _D_RI 7 RG 1 
 BASSSCOPY Y-F-R1 000000 RG 1 
| BASSSCOPY_G_R1 — RG 1 
—BASSSCOPY_H_R3 16 RG 1 
own amen sow we sew > 
: Psect synopsis ! 
| ne en 
/PSECT name Allocation PSECT No. Attributes 
|. ABS , tit 4 4 ( 0.) 9 ( 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
_ .BASSCODE 00000 ( 34.) 5 Bea PIC USR CON REL LCL SHR EXE =RD NOWRT NOVEC LONG 
bewmeeescne sermon nmececen ease $ 
H Performance indicators : 
Phase Page faults CPU Time Elapsed Time 
Initialization 29 $08.9 00: 9: 00.74 
Command processing 117 :00. 00:00:04.7 
Pass 66 :00.5 00: 00:01.6 
pyabes table sort 0 :00.00 00:00:00.00 
s2 56 :00.48 00:00:01.79 
ee D table output 1 :00.01 00:00:00.01 
Psect synopsis output :00.03 00:00:00.03 
Cross-reference output :00.00 00:00:00.66 
Assembler run totals 27 :01.66 00:00:08.91 


The working set Limit was 750 popes. 

2522 bytes (5 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 4 non-local and 0 local symbols. 
266 source Lines were read in Pass 1, produc ing 8 object records in Pass 2. 

0 pages of virtual memory were used to define 0 macros. 
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: Macro Library statistics : 


Anmumaminemen: eeeeeeoeooecan 


Macro Library name Macros defined 
“S$255$DUAZ8:(SYSLIBISTARLET.MLBs200 tS o- 
0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE =SUPPRE SS1ON/D1 SABLE=(GLOBAL , TRACEBACK) /LIS=L1S$:BASCOPYF D/OBJ=OBJ$:BASCOPYFD MSRC$:BASCOPYFD/UPDATE=(ENH$:BASCOPYFD) 
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